10 REM 11 REM 12 REM O E L 13 REM 14 REM 15 REM 16 REM 20 GOSUB1460:PRINT"[147][158]":POKE53280,0:POKE53281,2:GOSUB1900 30 FORB=1TO3 40 PRINT"  [146]  [146]  [146]" 50 NEXTB:FORB=1TO7 60 PRINT"  [146]  [146]  [146]  [146]" 70 NEXTB:FORB=1TO3 80 PRINT"  [146]  [146]  [146]  [146]" 90 NEXTB:FORB=1TO7 100 PRINT"  [146]  [146]  [146]  [146]" 110 NEXTB:FORB=1TO3 120 NEXTB:FORB=1TO3 130 PRINT"  [146]  [146]  [146]" 140 NEXTB 200 V=1:GOSUB50000:GOSUB60300 260 GOSUB60000 280 PRINT" DAS GROSSE SPIEL UMS GROSSE GELD.":GOSUB60000 300 GOSUB60100:GOSUB60000 320 PRINT" WIEVIELE WOLLEN MITPUMPEN (2-6 PUMPER)":GOSUB60000 340 GETSZ:IFSZ<2 OR SZ>6 THEN 340 344 GOTO 450 360 PRINT"?" 380 FORT=1TO90:NEXTT 400 PRINT" " 420 FORT=1TO90:NEXTT 440 GOTO340 450 PRINTTAB(9)"[145]EINEN MOMENT BITTE" 460 DIMAB(13),BD(13),BM(13),BF$(13),BP(13),BT(13),FB(13),F(13),FM(13),PA(13) 480 DIMTA(13),RP(37),GF(12),GG(12) 500 BF$(1)="BENZINACKER " 520 BF$(2)="EVER-SPRUDEL " 540 BF$(3)="TIEFERSCHLUND" 560 BF$(4)="DOLLARSPRITZ " 580 BF$(5)="HEAVYPUMP " 600 BF$(6)="LINEONPIPE " 620 BF$(7)="HAPPYBOHR " 640 BF$(8)="IMMERDRUCK " 660 BF$(9)="LUCKY HOLE " 680 BF$(10)="BLACK GOLD " 700 BF$(11)="OVERBUBBLE " 720 BF$(12)="DAUERSPRIT " 740 VG$(1)="DENVERCREAM" 760 VG$(2)="EWINGOIL " 780 VG$(3)="SELL & HOPP " 800 VG$(4)="NEVER & AGAIN " 820 VG$(5)="SALATOIL INC " 840 VG$(6)="SWIMMINOIL INC" 860 PF$(1)="BAY. PUMPE EG " 880 PF$(2)="DT.PUMPENGLUECK" 900 RA$="BOHR & PUMP & SOHN" 920 TG$(1)="RAFF UND GIER " 940 TG$(2)="KNALTEX GMBH " 960 TG$(3)="NEVER COME BACK" 980 TG$(4)="OIL ON THE ROAD" 1000 FORT=1TO12 1020 BP(T)=INT(RND(1)*70000)+30000 1040 FM(T)=INT((BP(T)-(RND(1)*9999)+1)*10) 1060 NEXTT 1080 FORT=1TO12:BT(T)=INT(RND(1)*3666)+1:NEXTT:K=INT(RND(1)*100000)+100000 1100 L1=INT(RND(1)*6)+1 1120 FM(L1*2)=1200:FM(L1*2-1)=1400 1140 FORT=1TO2 1160 PF(T)=INT(RND(1)*80000)+20000 1180 NEXTT 1200 FORT=1TO4 1220 TP(T)=INT(RND(1)*55000)+25000 1240 TW(T)=INT(TP(T)/10000)*3:NEXTT 1260 RP(1)=INT(RND(1)*7)+7 1280 FORT=2TO34 1300 RP(T)=RP(T-1)+(INT(RND(1)*14)-7) 1320 IFRP(T)<0THENRP(T)=1:GOTO1300 1340 IFRP(T)>20THENRP(T)=20 1360 NEXTT:FORT=1TO34 1380 A1$=" SIE MUESSEN LEIDER DRAUFLEGEN" 1400 A2$=" IHR VORHABEN IST GELUNGEN!" 1420 A3$="% ERWISCHT " 1440 DEFFNZ(X)=INT(RND(1)*X)+1:GOTO1520 1460 SI=54272:FL=SI:FH=SI+1:TL=SI+2 1480 TH=SI+3:W=SI+4:A=SI+5:H=SI+6 1500 L=SI+24:RZ=1983:RETURN 1520 GOSUB60000:GOSUB60000 1540 PRINT" WIR BEFINDEN UNS IM JAHR":GOSUB60000:GOSUB60300 1560 PRINTTAB(13)"[166] [166][166][166] [166][166][166] [166][166][166]" 1580 PRINTTAB(13)"[166] [166] [166] [166] [166] [166]" 1600 PRINTTAB(13)"[166] [166][166][166] [166][166][166] [166][166]" 1620 PRINTTAB(13)"[166] [166] [166] [166] [166]" 1640 PRINTTAB(13)"[166] [166][166][166] [166][166][166] [166][166][166]" 1660 GOSUB60000:GOSUB60300:GOSUB60000 1680 PRINT" DAS SPIEL ENDET IM JAHRE 2017":GOSUB60000:GOSUB60100 1700 B$(1)="DEEP THROAT INC. " 1720 B$(2)="TIEF UND SCHNELL AG" 1740 B$(3)="TURBO & DRILL GMBH " 1760 FORT=1TO3 1780 BG(T)=INT(RND(1)*50000)+10000 1800 NEXTT 1820 A4$=" WELCHE SOLL VERKAUFT WERDEN":GOTO2000 1900 DATA8,180,600,13,10,600,10,247,300,9,196,150,10,247,150,8,180,300 1920 DATA6,133,300,8,180,300,14,162,300,13,10,300,10,247,150,11,158,150 1940 DATA13,10,900,-1,-1,0 1960 RETURN 2000 PRINT"[146] [157][157][157][157][157]"SZ"PUMPER SPIELEN MIT " 2020 PRINT" NUN NOCH DIE NAMEN (MAX 12 BUCHSTABEN)" 2040 FORT=1TOSZ 2060 INPUT" ";SN$(T):IFLEN(SN$(T))>15THENPRINT" ZU LANG":GOTO2060 2080 KS(T)=K:NEXTT:GOSUB60000:V=2 2100 PRINT"VIEL SPASS BEIM GELDMACHEN UND VERLIEREN":GOSUB50000:GOSUB60000 2120 PRINT"JEDER SPIELER HAT "K"$ STARTKAPITAL":GOSUB60000:GOSUB60100 2220 PRINT"[147][158]":POKE53280,4:POKE53281,14 2240 PRINT" IHNEN STEHEN FOLGENDE WEGE OFFEN:":PRINT:K=0 2260 PRINT" [144]1. OELFELDER ERWERBEN." 2280 PRINT" 2. PUMPENHERSTELLER WERDEN." 2300 PRINT" 3. TANKWAGENHERSTELLER WERDEN." 2310 PRINT" 4. BOHRGESELLSCHAFTER WERDEN." 2320 PRINT" 5. SABOTAGE BETREIBEN." 2340 PRINT" 6. UND NATUERLICH ALLES ZUSAMMEN." 2360 PRINT" 7. ODER GAR NICHTS VON ALLEM." 2400 PRINT" [158] SIEGER IST LOGISCHER WEISE DER" 2420 PRINT" MIT DEM MEISTEN KAPITAL AM ENDE" 2440 PRINT" DES SPIELS." 2460 PRINT"";:GOSUB60200 2500 PRINT"[147][158]";:POKE53280,1:POKE53281,2 2520 PRINT" DIE RAFFINERIEOELPREISENTWICKLUNG "; 2530 PRINT" TREND DER NAECHSTEN JAHRE (RUNDEN) ";:GOSUB60300 2560 FORT=1TO34:POKEL,15:FORB=1TORP(T) 2580 POKEA,21:POKE56218+T-(B*40),4 2600 POKEH,255:POKE1946+T-(B*40),224 2620 POKETH,8:POKETL,0:POKEFH,41-T 2640 POKEFL,101-T:POKEW,17 2660 NEXTB,T:POKEW,0 2680 PRINT;:GOSUB60200:FORT=1TO34:RP(T)=RP(T)/10:NEXTT 3000 R=R+1:FORS=1TOSZ 3100 PRINT"[147]":POKE53280,4:POKE53281,4 3120 PRINT"ENTSCHEIDUNGSMOEGLICHKEIT FUER":GOSUB52000 3140 PRINT"[159][146]SPIELER "SN$(S)" $="KS(S):PRINT"  EINKAUF VON [146]" 3160 PRINT"[144] A = BOHRGESELLSCHAFT" 3180 PRINT" B = PUMPENGESELLSCHAFT" 3200 PRINT"[144] C = TANKWAGENFIRMA" 3220 PRINT" D = OELFELD" 3240 PRINT"[144] E = BOHRGESTAENGE" 3260 PRINT" F = PUMPE" 3280 PRINT"[144] G = TANKWAGEN":PRINT"  SONSTIGES [146]" 3300 PRINT" H = NAECHSTER SPIELER" 3320 PRINT"[144] I = SABOTAGE BETREIBEN" 3340 PRINT" J = PREISFESTLEGUNG" 3360 PRINT"[144] K = WEITERMACHEN" 3400 GOSUB60200:Z2=ASC(S$):Z2=Z2-64 3410 IFZ2<1ORZ2>12THEN3400 3420 ONZ2GOSUB37000,31000,32000,30000,38000,39000,40000,3500,35000,42000,3500 3440 NEXTS:GOTO4000 3500 RETURN 4000 FORS=1TOSZ 4200 FORI=1TO12:GOSUB12000:NEXTI 4300 KS(S)=INT(KS(S)):NEXTS 4400 PRINT"[147]":GOSUB29000 4500 GOSUB59000:RZ=RZ+1:IFRZ=2017THEN6000 4600 GOTO3000 6000 PRINT"[147]":POKE53281,0:POKE53280,0 6100 PRINT" DAS" 6200 PRINT" SPIEL" 6300 PRINT" IST" 6400 PRINT" VORRUEBER" 6500 PRINT"[154] HIER DAS GESAMTERGEBNIS:" 6700 PRINT" SPIELER BANKKREDIT KAPITAL" 6800 PRINT" [184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]" 6900 FORZ0=1TOSZ 7000 PRINT" "SN$(Z0);:PRINTTAB(15)BK(Z0);:PRINTTAB(28)INT(KS(Z0)-(BK(Z0)*1.6)) 7100 NEXTZ0 7200 PRINT" ICH HOFFE SIE HATTEN VIEL FREUDE UND" 7300 PRINT" VERBLEIBE ALS IHR OELY.[144]":V=1:GOSUB50000:END 10000 PRINT"[147]":POKE53281,8:POKE53280,0 10020 PRINT"[151] [169][146][144][178][151][223][146] [213][195][195][195][178][201] [146] [144] O E L F E L D [146]" 10040 PRINT"[151]  [146][144][221][151] [146] [171][195][195][195][189][202][201][146]";:PRINTTAB(22)BF$(I) 10060 PRINT"[151]  [146][144][221][151] [146] [173][144][215][215][195][195][144][215][203][146] [144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 10080 PRINTTAB(20)"[144] B E S I T Z E R [146]" 10090 IFGG(I)FM(I)THENPRINT" QUELLE ERSCHOEPFT!" 10505 IFGF(I)<=0THENPRINT"";:GOSUB60200:RETURN 10510 IFTA(I)=0ORPA(I)=0THENPRINT"";:GOSUB60200:RETURN 10520 PRINT:INPUT" WIEVIEL LITER SOLLEN WEG";M 10540 IFM>GF(I)ORM>TA(I)*7000THENPRINT" ZUVIEL[145][145][145]":GOTO10520 10560 KS(S)=KS(S)+(M*(RP(R))):GF(I)=GF(I)-M 10580 PRINT" KAPITAL :"KS(S)" $" 10600 PRINT"";:GOSUB60200:RETURN 12000 IFFB(I)<>STHENRETURN 12005 IFF(I)=1THEN10000 12010 PRINT"[147]":POKE53280,0:POKE53281,1 12040 PRINT"  [169] [223][146][152][162][144][164][164]" 12060 PRINT"   [146][169][152][162][146][144][163][163]"; 12080 PRINTTAB(17)"BOHRUNG AUF FELD" 12100 PRINT"   [146][150][161] [161][153]"; 12120 PRINTTAB(17)BF$(I) 12140 PRINT"   [146] [190] " 12160 PRINT" [144] [213][203]"; 12180 PRINTTAB(12)"[154]BESITZER:[144]"SN$(S) 12200 PRINT" [144][195][203]" 12220 PRINT" IHR OELFELDLAGERVERWALTER TEILT IHNEN" 12240 PRINT" FOLGENDE DATEN MIT:" 12260 IFBM(I)<=0THENPRINT" BOHRUNG UNMOEGLICH, DA KEIN GESTAENGE" 12280 IFBM(I)<=0THENPRINT" MEHR VORHANDEN. WIR BRAUCHEN NACHSCHUB!":GOTO12320 12300 BM(I)=BM(I)-500:AB(I)=AB(I)+500-FNZ(30) 12320 PRINT" BISHERIGE BOHRTIEFE :"AB(I)"M" 12340 PRINT" BOHRGESTAENGE NOCH FUER:"BM(I)"M" 12360 IFAB(I)>=BT(I)THENPRINT" WIR SIND FUENDIG.":F(I)=1:V=3:GOSUB50000 12460 PRINT"";:GOSUB60200:RETURN 28000 PRINT:FORDD=1TO12:PRINTDD; 28100 IFFB(DD)=STHENPRINTTAB(10)BF$(DD):GOTO28300 28200 PRINT 28300 NEXTDD 28400 PRINT:INPUT"FUER WELCHES OELFELD";D 28500 IFD=0THENRETURN 28600 IFFB(D)<>STHEN28400 28700 RETURN 29000 PRINT"JAHR:"RZ:PRINT:FORZ8=1TOSZ 29100 PRINTSN$(Z8); 29200 PRINTTAB(20)"KAPITAL:"KS(Z8) 29300 NEXTZ8 29400 PRINT""; 29500 GOSUB60200:RETURN 30000 PRINT"[147]";:POKE53280,4:POKE53281,14 30020 PRINT"[158] [146]"; 30040 PRINT" O E L F E L D A N G E B O T E [146]"; 30060 PRINT"[158] [146]"; 30080 PRINT" GESELLSCHAFT OELFELD PREIS $" 30100 FORT=1TO6:PRINTVG$(T) 30120 PRINT:NEXTT 30140 PRINT"" 30160 FORT=1TO12:PRINTTAB(15)""CHR$(64+T);:PRINTTAB(17)""BF$(T) 30180 NEXTT:PRINT"[144]" 30200 FORT=1TO12:IFFB(T)>0THENPRINTTAB(31)"[159]VERKAUFT[144]":GOTO30240 30220 PRINTTAB(32)BP(T) 30240 NEXTT 30260 PRINT" "SN$(S)"" 30280 PRINT"[144]WELCHES FELD SOLL GEKAUFT WERDEN? [164]" 30300 PRINT"LIQUIDES KAPITAL:"KS(S)"$" 30320 GETS$:IFS$=""THEN30320 30340 B=ASC(S$)-64:IFB>90ORB<0THEN30320 30360 IFB>12THENRETURN 30380 IFFB(B)>0THEN30320 30400 FB(B)=S:KS(S)=KS(S)-BP(B) 30420 PRINT"[145][145][145][158]"TAB(35)S$"" 30440 PRINTTAB(17)" [157][157][157][157][157][157][157][157]"KS(S) 30460 FORT=1TO1500:NEXTT 30480 RETURN 31000 PRINT"[147]";:POKE53281,6:POKE53280,2 31020 GOSUB50000:PRINT"[158] PUMPE "; 31040 PRINT" & PUMPENVEREINIGUNGSGESELLSCHAFT"; 31060 PRINT"[158] PUMPE " 31080 PRINT" BETR. PUMPENFABRIKANFRAGE" 31100 PRINT" [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]" 31120 IFPP(1)>0ANDPP(2)>0THEN31280 31140 PRINT" WIR KOENNEN IHNEN FOLGENDE ANGEBOTE" 31160 PRINT" UNTERBREITEN." 31180 PRINT" 1 "PF$(1);:IFPP(1)>0THENPRINTTAB(30)"VERKAUFT":GOTO31220 31200 PRINTTAB(28)PF(1) 31220 PRINT" 2 "PF$(2);:IFPP(2)>0THENPRINTTAB(30)"VERKAUFT[158]":GOTO31260 31240 PRINTTAB(28)PF(2) 31260 GOTO31360 31280 PRINT"LEIDER MUESSEN WIR IHNEN MITTEILEN, DASS"; 31300 PRINT" ZUR ZEIT KEINE PUMPENHERSTELLUNGSFIRMA" 31320 PRINT"ZUM VERKAUF ANSTEHT." 31340 GOSUB60200:RETURN 31360 PRINT" WENN SIE EINE FABRIK KAUFEN WOLLEN;" 31380 PRINT" DRUECKEN SIE DIE BETREFFENDE ZAHL. WENN"; 31400 PRINT" SIE NICHT WOLLEN DRUECKEN SIE 'X'" 31420 GETS$:IFS$=""THEN31420 31440 IFS$="1"ANDPP(1)=0THENKS(S)=KS(S)-PF(1):PP(1)=S:GOSUB60000:GOTO31520 31460 IFS$="2"ANDPP(2)=0THENKS(S)=KS(S)-PF(2):PP(2)=S:GOSUB60000:GOTO31620 31480 PRINT" SCHADE - DAS WIR NICHT INS GESCHAEFT":PRINT" KOMMEN" 31500 GOSUB60100:RETURN 31520 GOSUB60000:PRINT"" 31540 PRINT"[153] SIE SIND NUN BESITZER DER FIRMA:":PRINT" "PF$(1)"." 31560 INPUT" LEGEN SIE DEN PUMPENPREIS FEST";P(1) 31580 IFP(1)>60000THENPRINT"ZU HOCH!":GOTO31560 31600 GOTO31700 31620 GOSUB60000:PRINT"" 31640 PRINT"[153] SIE SIND NUN BESITZER DER FIRMA:":PRINT" "PF$(2)"." 31660 INPUT"LEGEN SIE DEN PUMPENPREIS FEST";P(2) 31680 IFP(2)>60000THENPRINT"ZU HOCH!":GOTO31660 31700 PRINT" [158]ALLES KLAR!":GOSUB60100:RETURN 32000 PRINT"[147]";:POKE53280,0:POKE53281,14:GOSUB50000 32020 PRINT" [146]"; 32040 PRINT" T A N K W A G E N F I R M E N [146]"; 32060 PRINT" [146]"; 32080 PRINT" V E R K A U F [146]"; 32100 PRINT" [146]"; 32120 PRINT" NR F I R M A LKW PREIS [146]" 32140 FORT=1TO4 32160 PRINT:PRINTT" "TG$(T):NEXTT 32180 PRINT"" 32200 FORT=1TO4 32220 IFTB(T)>0THENPRINTTAB(30)"VERKAUFT":GOTO32260 32240 PRINT:PRINTTAB(24)TW(T);:PRINTTAB(29)TP(T) 32260 NEXTT 32280 PRINT" KEIN KAUF = 'X'" 32300 GETS$:IFS$=""THEN32300 32320 B=VAL(S$):IFTB(B)>0THENRETURN 32340 IFB>4ORB=0THENRETURN 32360 KS(S)=KS(S)-TP(B):TB(B)=S 32380 PRINT" IHR KAPITAL BETRAEGT JETZT"KS(S)"" 32400 INPUT" IHR TANKWAGENPREIS";LP(B) 32420 IFLP(B)>60000THENPRINT"[147] UNREALISTISCH!":GOTO32400 32440 RETURN 33000 PRINT"[147]":POKE53280,0:POKE53281,0 33020 PRINT" HIER FAELLT DIE ENTSCHEIDUNG !" 33040 W3=INT(RND(1)*10)+1 33060 PRINTTAB(15)" + 50 % [146]" 33080 PRINTTAB(15)" - 20 % [146]" 33100 PRINTTAB(15)" + 40 % [146]" 33120 PRINTTAB(15)" - 10 % [146]" 33140 PRINTTAB(15)" + 30 % [146]" 33160 PRINTTAB(15)" - 30 % [146]" 33180 PRINTTAB(15)" + 10 % [146]" 33200 PRINTTAB(15)" - 40 % [146]" 33220 PRINTTAB(15)" + 20 % [146]" 33240 PRINTTAB(15)" - 50 % [146]" 33260 PRINT" DRUECKEN SIE IM RICHTIGEN MOMENT 'F1'":E=0 33280 FORT=1207TO1567STEP40 33300 POKET,31:FORB=1TO3:NEXTB 33320 E=E+1:GETS$ 33340 IFS$=CHR$(133)THEN33380 33360 POKET,224:NEXTT:E=0:GOTO33280 33380 PRINT" SIE HABEN DIE "; 33400 ONEGOTO33420,33440,33460,33480,33500,33520,33540,33560,33580,33600 33420 PRINT"+50"A3$A1$:E=50:GOTO33620 33440 PRINT"-20"A3$A2$:E=-20:GOTO33620 33460 PRINT"+40"A3$A1$:E=40:GOTO33620 33480 PRINT"-10"A3$A2$:E=-10:GOTO33620 33500 PRINT"+30"A3$A1$:E=30:GOTO33620 33520 PRINT"-30"A3$A2$:E=-30:GOTO33620 33540 PRINT"+10"A3$A1$:E=10:GOTO33620 33560 PRINT"-40"A3$A2$:E=-40:GOTO33620 33580 PRINT"+20"A3$A1$:E=20:GOTO33620 33600 PRINT"-50"A3$A2$:E=-50 33620 PRINT"";:GOSUB60200:RETURN 35000 PRINT"[147]":POKE53281,11:POKE53280,0 35020 FORT=1TO23 35040 GOSUB51000 35060 PRINT""SPC(T)"SABOTAGEAKTION" 35080 NEXTT 35100 GOSUB60000:GOSUB60000 35120 PRINT"[147]":PRINTTAB(12)SN$(S) 35140 PRINT" FOLGENDE SABOTAGEMOEGLICHKEITEN" 35160 PRINT" STEHEN ZUR VERFUEGUNG:" 35180 PRINT"[154] AGENTEN ANWERBEN UND FREMDES OEL-" 35200 PRINT" FELD DURCH IHN UNBRAUCHBAR MACHEN" 35220 PRINT" LASSEN. = F1" 35240 PRINT"[158] PUMPENFIRMA DURCH SABOTAGE AUSSER" 35260 PRINT" BETRIEB SETZEN. = F3" 35280 PRINT"[154] TANKWAGENFIRMA DURCH BESTECHHUNG" 35300 PRINT" DER KREDITGEBER KONKURS GEHEN " 35320 PRINT" LASSEN. = F5":W4=FNZ(40000) 35325 PRINT"[158] BOHRFIRMA DURCH OELUEBERSCHWEMMUNG" 35330 PRINT" AUSSER KRAFT SETZEN. = F7" 35340 PRINT"[154] LIEBER DOCH NICHTS MACHEN. = 'X'":W3=INT(RND(1)*40000)+40000 35360 GOSUB60200 35380 IFS$=CHR$(136)THEN45000 35400 IFS$=CHR$(133)THEN35480 35420 IFS$=CHR$(134)THEN43000 35440 IFS$=CHR$(135)THEN44000 35460 RETURN 35480 GOSUB60000:GOSUB60000 35500 PRINT"[147][150] HEY, HIER IST AGENT DIABOLO HUGGI BAER" 35520 PRINT" WELCHES OELFELD SOLL ICH SABOTIEREN?[152]" 35540 FORT=1TO12:PRINT" "T,BF$(T):NEXTT 35560 PRINT:INPUT" OELFELDNUMMER";N 35580 IFN<1ORN>12THENRETURN 35600 PRINT"[150] SO. FUER DIE SABOTAGE DES OELFELDES" 35620 PRINT" FALLEN FOLGENDE UNKOSTEN AN:" 35680 PRINT" SPESEN, SCHMIERGELDER ETC = "W3 35700 PRINT" KORKEN, SPRENGSTOFF ETC = "W4 35720 PRINT" GESAMT = "W3+W4 35740 PRINT" [144]DIE CHANCEN EINER ERFOLGREICHEN" 35760 PRINT" DURCHFUEHRUNG LIEGEN BEI 33% .";:GOSUB60100:GOSUB60000 35780 PRINT"" 35800 PRINT" SOLL ICH ZUR TAT SCHREITEN?" 35820 GETS$:IFS$=""THEN35820:IFS$="N"THENRETURN 35830 IFS$="N"THENRETURN 35840 IFS$="J"THEN35880 35860 GOTO35820 35880 KS(S)=KS(S)-W3-W4:W3=0:W4=0 35900 W3=FNZ(3):T1=0 35920 IFW3=1THENBP(N)=FNZ(50000)+30000:W4=FNZ(200000):FM(N)=W4:T1=2:F(N)=0 35940 IFW3=1THENBT(N)=FNZ(4500):FB(N)=0:PA(N)=0:TA(N)=0:AB(N)=0:BM(N)=0:GF(N)=0 35950 IFW3=1THENGG(N)=0 35960 PRINT" [154] SABOTAGEERGEBNIS DURCH TASTENDRUCK" 35980 GETS$:IFS$=""THEN35980 36000 FORK=1TO30:POKEL,15 36020 POKEA,190:POKETH,8:POKEFH,K 36040 PRINTTAB(13)"[158] GELUNGEN [145]" 36060 POKEFL,K:POKEW,33:FORT=1TO100:NEXTT 36080 PRINTTAB(13)"[154] MISSLUNGEN[145]":FORT1=1TO100:NEXTT1:POKEW,0:NEXTK 36100 IFW3=1THENPRINTTAB(13)" GELUNGEN " 36120 IFW3<>1THENPRINTTAB(13)"[144]PECH GEHABT" 36140 POKEW,0 36160 IFW3<>1THENGOSUB60300:RETURN 36180 FORT=16TO0STEP-1 36200 POKEL,T:POKEA,15:POKEH,0 36220 POKEFH,40:POKEFL,200:POKEW,129 36240 FORTS=1TO100:NEXTTS 36260 NEXTT 36300 POKEL,15:POKEA,190:POKEH,64 36320 POKEFH,1:POKEFL,95 36340 POKEW,129 36360 FORTT=1TO1000:NEXTTT 36380 POKEW,0:RETURN 37000 PRINT"[147]":POKE53280,6:POKE53281,6 37020 GOSUB50000 37040 PRINT" "; 37060 PRINT" BOHRGESELLSCHAFTSKAUFANGEBOTE "; 37080 PRINT" " 37100 FORT=1TO3:IFBB(T)=0THEN37140 37120 NEXTT:PRINT"KEINE MEHR DA":GOSUB60100:RETURN 37140 T=0:FORT=1TO3 37160 IFBB(T)>0THEN37200 37180 PRINT""T;" "B$(T),BG(T)" $" 37200 NEXTT 37220 PRINT" WELCHE GESELLSCHAFT WOLLEN SIE KAUFEN?" 37240 GOSUB60200 37260 Z1=VAL(S$):IFZ1=0ORBB(Z1)>0THENRETURN 37280 PRINT"SIE SIND NUN INHABER DER GESELLSCHAFT":PRINTB$(Z1)". LEGEN SIE NUN" 37300 PRINT"IHREN BOHRGESTAENGEPREIS FUER 500 M FEST" 37320 INPUTBD(Z1) 37340 KS(S)=KS(S)-BG(Z1):BB(Z1)=S:RETURN 38000 PRINT"[147]":POKE53281,8:POKE53280,8 38020 PRINT"FOLGENDE BOHRGESTAENGE WERDEN ANGEBOTEN:" 38040 PRINT"FIRMA";SPC(15)"PREIS FUER 500 METER"SPC(20)"BOHRGESTAENGE" 38060 FORZ=1TO40:PRINT"[196]";:NEXTZ:Z=0 38080 FORZ=1TO3:PRINTZ" "B$(Z); 38100 IFBB(Z)>0THENPRINTTAB(26)BD(Z)"$":GOTO38140 38120 PRINTTAB(26)"[144]KEIN ANGEBOT" 38140 NEXTZ 38160 IFBB(1)=0ANDBB(2)=0ANDBB(3)=0THENPRINT"ES GIBT NOCH KEINE FIRMA DIE" 38180 IFBB(1)=0ANDBB(2)=0ANDBB(3)=0THENPRINT"DIE GESTAENGE VERKAUFT!" 38200 IFBB(1)=0ANDBB(2)=0ANDBB(3)=0THENGOSUB60100:GOSUB60300:RETURN 38220 PRINT"" 38240 INPUT"EINKAUF BEI WELCHER FIRMA";CC:IFCC=0THENRETURN 38260 IFBD(CC)=0THENPRINT"[144] LIEGT NOCH KEIN ANGEBOT VOR":GOTO38240 38280 INPUT"WIEVIEL 500M EINHEITEN WOLLEN SIE";C:IFC=0THENRETURN 38300 GOSUB28000 38320 IFD=0THENRETURN 38340 KS(S)=KS(S)-(C*(BD(CC))) 38350 FORK=1TOSZ:IFBB(CC)=STHENKS(S)=KS(S)+(.2*(C*(BD(CC)))):GOTO38380 38360 IFBB(CC)=KTHENKS(K)=KS(K)+(C*(BD(CC))) 38380 NEXTK:BM(D)=BM(D)+C*500:GOSUB29000 38400 D=0:DD=0:C=0:CC=0:K=0:RETURN 39000 PRINT"[147]";:POKE53281,12:POKE53280,12 39020 PRINT" ** PUMPENVERKAEUFERANGEBOTE ** [146]" 39040 PRINT" GESELLSCHAFT PUMPENPREIS IN $" 39060 FORB=0TO39:PRINT"[184]";:NEXTB:PRINT 39080 FORZ=1TO2:PRINTZ;PF$(Z); 39100 IFPP(Z)=0THENPRINT" [144]KEIN ANGEBOT":GOTO39140 39120 PRINTP(Z) 39140 NEXTZ:PRINT"" 39160 INPUT"KAUF BEI WELCHER FIRMA ";CC 39180 IFCC=0THENRETURN 39200 IFPP(CC)=0THENPRINT"KEIN ANGEBOT DA":GOTO39160 39220 INPUT"[144]KAUF VON WIEVIEL PUMPEN";C 39240 IFC=0THENRETURN 39260 GOSUB28000:IFD=0THENRETURN 39280 KS(S)=KS(S)-(C*P(CC)) 39290 FORK=1TOSZ:IFPP(CC)=STHENKS(S)=KS(S)+(.2*(C*P(CC))):GOTO39320 39300 IFPP(CC)=KTHENKS(K)=KS(K)+(C*P(CC)) 39320 NEXTK:PA(D)=PA(D)+C:GOSUB29000 39340 D=0:DD=0:C=0:CC=0:K=0:RETURN 40000 PRINT"[147][158]";:POKE53281,10:POKE53280,10 40020 PRINT" ** TANKWAGENVERKAUFSANGEBOTE ** [146]" 40040 PRINT" NR FIRMA ANZAHL PREIS" 40060 FORB=0TO39:PRINT"[184]";:NEXTB:PRINT 40080 FORZ=1TO4:PRINTZ;TG$(Z);TW(Z); 40100 IFTB(Z)=0THENPRINT" [144]KEIN ANGEBOT":GOTO40140 40120 PRINTLP(Z) 40140 NEXTZ:PRINT"" 40160 INPUT"LKWKAUF BEI WELCHER FIRMA";CC 40180 IFCC=0THENRETURN 40200 IFTB(CC)=0ORTW(CC)<=0THENPRINT" GEHT NICHT!":GOTO40160 40220 INPUT"[144]KAUF VON WIEVIEL LKW ";C 40240 IFC=0ORC>TW(CC)THENRETURN 40260 GOSUB28000:IFD=0THENRETURN 40280 KS(S)=KS(S)-(C*LP(CC)):TW(CC)=TW(CC)-C 40290 FORK=1TOSZ:IFTB(CC)=STHENKS(S)=KS(S)+(.2*(C*LP(CC))):GOTO40320 40300 IFTB(CC)=KTHENKS(K)=KS(K)+(C*LP(CC)) 40320 NEXTK:TA(D)=TA(D)+C:GOSUB29000 40340 D=0:DD=0:C=0:CC=0:K=0:RETURN 42000 PRINT"[147]":POKE53280,2:POKE53281,2 42100 PRINT" FUER WELCHES PRODUKT WOLLEN SIE DEN " 42120 PRINT" PREIS NEU FESTLEGEN?" 42140 PRINT" 1 = PUMPENPREIS" 42160 PRINT" 2 = TANKWAGENPREIS" 42180 PRINT" 3 = BOHRGESTAENGEPREIS" 42200 INPUT" NR";E1:IFE1<=0ORE1>3THEN42200 42220 PRINT"[147]":ONE1GOTO42300,42500,42700 42300 PRINT"NR FIRMA PUMPENPREIS" 42320 FORZ=1TO2:PRINTZ;PF$(Z);P(Z):NEXTZ 42340 PRINT:INPUT" WELCHE FIRMA";E1 42360 IFE1<=0ORE1>2THENPRINT" KEINE FESTLEGUNG":GOSUB60300:RETURN 42380 IFPP(E1)<>STHENPRINT" GEHOERT IHNEN NICHT!":GOTO42340 42400 PRINT"":GOSUB58000 42420 P(E1)=E2:GOSUB29000:E1=0:E2=0:RETURN 42500 PRINT"NR FIRMA TANKWAGENPREIS" 42520 FORZ=1TO4:PRINTZ;TG$(Z);LP(Z):NEXTZ 42540 PRINT:INPUT" WELCHE FIRMA";E1 42560 IFE1<=0ORE1>4THENPRINT" KEINE FESTLEGUNG":GOSUB60300:RETURN 42580 IFTB(E1)<>STHENPRINT" GEHOERT IHNEN NICHT!":GOTO42540 42600 PRINT"":GOSUB58000 42620 LP(E1)=E2:GOSUB29000:E1=0:E2=0:RETURN 42700 PRINT"NR FIRMA GESTAENGEPREIS" 42720 FORZ=1TO3:PRINTZ;B$(Z);BD(Z):NEXTZ 42740 PRINT:INPUT" WELCHE FIRMA";E1 42760 IFE1<=0ORE1>3THENPRINT" KEINE FESTLEGUNG":GOSUB60300:RETURN 42780 IFBB(E1)<>STHENPRINT" GEHOERT IHNEN NICHT!":GOTO42740 42800 PRINT"":GOSUB58000 42820 BD(E1)=E2:GOSUB29000:E1=0:E2=0:RETURN 43000 PRINT"[147] WELCHE DER FOLGENDEN PUMPENFIRMEN SOLL" 43020 PRINT" SABOTIERT UND UEBERNOMMEN WERDEN?" 43040 PRINT"GESELLSCHAFT PREIS BESITZER " 43060 FORZ=1TO2 43080 PRINTZ;PF$(Z);PF(Z); 43100 FORZZ=1TOSZ:IFPP(Z)=ZZTHENPRINTTAB(25)SN$(ZZ) 43120 NEXTZZ,Z:PRINT"" 43140 GOSUB59900 43160 IFN<=0ORN>2ORPP(N)=0THENRETURN 43180 GOSUB33000 43200 E=E+100:IFE<100THEN43280 43220 KS(S)=KS(S)-((PF(N)*E)/100) 43240 GOTO43340 43280 KS(S)=KS(S)-((PF(N)*E)/100) 43320 PP(N)=0:W3=FNZ(100000):PF(N)=W3:P(N)=0 43340 E=0:Z=0:ZZ=0:RETURN 44000 PRINT"[147][158] WELCHE DER FOLGENDEN TANKWAGENFIRMEN" 44020 PRINT" SOLL SABOTIERT WERDEN?" 44040 PRINT"[144] GESELLSCHAFT PREIS BESITZER ":PRINT"" 44060 FORZ=1TO4:PRINT""Z;TG$(Z)" "TP(Z):NEXTZ:PRINT"" 44080 FORZZ=1TO4:FORZ=1TOSZ:IFTB(ZZ)=ZTHENPRINTTAB(27)SN$(Z):GOTO44120 44100 NEXTZ:PRINTTAB(27)"[144]FREI" 44120 NEXTZZ:PRINT"" 44140 GOSUB59900 44160 IFN<=0ORN>4ORTB(N)=0THENRETURN 44180 GOSUB33000 44200 E=E+100:IFE<100THEN44280 44220 KS(S)=KS(S)-((TP(N)*E)/100) 44240 ZZ=0:Z=0:E=0:RETURN 44280 KS(S)=KS(S)-((TP(N)*E)/100) 44300 TB(N)=0 44320 W3=FNZ(200000):TP(N)=W3:LP(N)=0:TW(N)=INT(W3/10000) 44340 ZZ=0:Z=0 44360 PRINT"[147][158]SIE BESITZEN EIN VORKAUFSRECHT AUF DIE" 44380 PRINT"VON IHNEN SABOTIERTE TANKWAGENFIRMA:" 44400 PRINT" FIRMA :"TG$(N) 44420 PRINT" PREIS :"TP(N)"$" 44460 PRINT" LKWZAHL :"TW(N) 44480 PRINT" WOLLEN SIE KAUFEN (J/N)?" 44500 GOSUB60200:POKE53281,2:PRINT"[158]" 44520 IFS$="J"THENTB(N)=S:KS(S)=KS(S)-TP(N) 44540 IFS$="J"THENINPUT" NEUER LKW-PREIS";LP(N) 44560 RETURN 45000 PRINT"[147] WELCHE DER FOLGENDEN BOHRGESELLSCHAFT-"; 45020 PRINT" EN SOLL SABOTIERT WERDEN" 45040 PRINT"GESELLSCHAFT PREIS BESITZER [146]" 45060 FORZ=1TO3 45080 PRINTZ;B$(Z);BG(Z); 45100 FORZZ=1TOSZ:IFBB(Z)=ZZTHENPRINTSN$(ZZ) 45120 PRINT:NEXTZZ,Z:PRINT"" 45140 GOSUB59900 45160 IFN<=0ORN>3ORBB(N)=0THENRETURN 45180 GOSUB33000 45200 E=E+100:IFE<100THEN45280 45220 KS(S)=KS(S)-((BG(N)*E)/100) 45260 GOTO45340 45280 KS(S)=KS(S)-((BG(N)*E)/100) 45320 BB(N)=0:BG(N)=FNZ(100000):BD(N)=0 45340 E=0:Z=0:ZZ=0:RETURN 50000 POKEL,15:POKETH,13:POKETL,15:POKEA,3*16+15:POKEH,9 50100 READGX:READGY:READDT 50200 IFGX=-1THENRESTORE:RETURN 50300 POKEFH,GX:POKEFL,GY 50400 POKEW,65 50500 FORT=1TODT/V:NEXTT:POKEW,0 50600 GOTO50100 51000 POKEL,15:POKEA,24:POKEH,170 51100 POKEFH,2:POKEFL,113:POKEW,33 51200 FORTT=1TO50:NEXTTT 51300 POKEW,0:POKEA,0:POKEH,0:RETURN 52000 FORT=1TO6:FORTS=4TO14STEP10 52100 POKEL,TS:POKEA,15:POKEH,0:POKEFH,6 52200 POKEFL,133:POKEW,17 52300 FORTT=1TO100:NEXTTT 52400 NEXTTS,T:POKEW,0:POKEA,0:RETURN 58000 INPUT" NEUER PREIS";E2 58100 RETURN 59000 FORX=1TOSZ 59010 IFBK(X)>0THENKS(X)=KS(X)-5000:BK(X)=BK(X)-3000:GOSUB59400 59020 IFKS(X)<0THENGOSUB59100 59040 NEXTX:RETURN 59100 PRINT"[147]";:POKE53281,0:POKE53280,0 59120 POKE53272,23:PRINT" [196]IE [204]UFT IST RAUS "SN$(X) 59140 FORZ9=1TO30:POKEL,15 59160 POKEA,190:POKETH,8:POKETL,0 59180 POKEFH,2+Z9:POKEFL,78+Z9 59200 POKEW,129:FORTT=1TO28:NEXTTT:NEXTZ9:POKEW,0 59220 PRINT:PRINT" [196]U BEKOMMST VON DER [194]ANKGESELLSCHAFT" 59240 PRINT" [210]AFFKE UND [211]OHN EINEN [194]ANKKREDIT VON" 59260 PRINT" 20000 [196]OLLAR. [196]U MUSST JETZT JEDES [202]AHR" 59280 PRINT" 5000 [196]OLLAR ABBEZAHLEN." 59300 PRINT;:GOSUB60200:PRINT"[147]":POKE53272,21 59320 KS(X)=KS(X)+20000:BK(X)=BK(X)+20000:RETURN 59400 PRINT"[147][154] RAFFKE UND SOHN BANKKREDITABTEILUNG [146]":POKE53281,0 59420 PRINT" TEILT "SN$(X)" MIT:" 59440 PRINT" NOCH ZAHLBAR :"BK(X)"$" 59460 PRINT" JETZT ZAHLBAR : 5 0 0 0.-- $" 59480 PRINT" IHR KAPITAL :"KS(X)"$" 59500 PRINT"";:GOSUB60200:RETURN 59900 INPUT" WELCHE FIRMA (NR)";N 59950 RETURN 60000 FORB=1TO6:PRINT"":NEXTB 60050 RETURN 60100 FORTT=1TO2000:NEXTTT:RETURN 60200 GETS$ 60220 PRINTTAB(6)"BITTE DRUECKEN SIE EINE TASTE[145]":FOROX=1TO100:NEXTOX 60260 PRINTTAB(6)"[144]BITTE DRUECKEN SIE EINE TASTE[145]":FOROX=1TO100:NEXTOX 60280 IFS$=""THEN60200 60290 RETURN 60300 FORTT=1TO2000:NEXTTT:RETURN